home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / Icons.p < prev    next >
Text File  |  1995-09-12  |  16KB  |  456 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 7:09:51 PM }
  2. {
  3.      File:        Icons.p
  4.  
  5.      Contains:    Icon Utilities Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT Icons;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __ICONS__}
  26. {$SETC __ICONS__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types, Quickdraw;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. CONST
  36. { The following are icons for which there are both icon suites and SICNs. }
  37.     kGenericDocumentIconResource = -4000;
  38.     kGenericStationeryIconResource = -3985;
  39.     kGenericEditionFileIconResource = -3989;
  40.     kGenericApplicationIconResource = -3996;
  41.     kGenericDeskAccessoryIconResource = -3991;
  42.     kGenericFolderIconResource    = -3999;
  43.     kPrivateFolderIconResource    = -3994;
  44.     kFloppyIconResource            = -3998;
  45.     kTrashIconResource            = -3993;
  46.     kGenericRAMDiskIconResource    = -3988;
  47.     kGenericCDROMIconResource    = -3987;
  48. { The following are icons for which there are SICNs only. }
  49.     kDesktopIconResource        = -3992;
  50.     kOpenFolderIconResource        = -3997;
  51.     kGenericHardDiskIconResource = -3995;
  52.     kGenericFileServerIconResource = -3972;
  53.     kGenericSuitcaseIconResource = -3970;
  54.     kGenericMoverObjectIconResource = -3969;
  55. { The following are icons for which there are icon suites only. }
  56.     kGenericPreferencesIconResource = -3971;
  57.     kGenericQueryDocumentIconResource = -16506;
  58.     kGenericExtensionIconResource = -16415;
  59.     kSystemFolderIconResource    = -3983;
  60.     kAppleMenuFolderIconResource = -3982;
  61.  
  62. { Obsolete. Use named constants defined above. }
  63.     genericDocumentIconResource    = kGenericDocumentIconResource;
  64.     genericStationeryIconResource = kGenericStationeryIconResource;
  65.     genericEditionFileIconResource = kGenericEditionFileIconResource;
  66.     genericApplicationIconResource = kGenericApplicationIconResource;
  67.     genericDeskAccessoryIconResource = kGenericDeskAccessoryIconResource;
  68.     genericFolderIconResource    = kGenericFolderIconResource;
  69.     privateFolderIconResource    = kPrivateFolderIconResource;
  70.     floppyIconResource            = kFloppyIconResource;
  71.     trashIconResource            = kPrivateFolderIconResource;
  72.     genericRAMDiskIconResource    = kGenericRAMDiskIconResource;
  73.     genericCDROMIconResource    = kGenericCDROMIconResource;
  74.     desktopIconResource            = kDesktopIconResource;
  75.     openFolderIconResource        = kOpenFolderIconResource;
  76.     genericHardDiskIconResource    = kGenericHardDiskIconResource;
  77.     genericFileServerIconResource = kGenericFileServerIconResource;
  78.     genericSuitcaseIconResource    = kGenericSuitcaseIconResource;
  79.     genericMoverObjectIconResource = kGenericMoverObjectIconResource;
  80.     genericPreferencesIconResource = kGenericPreferencesIconResource;
  81.     genericQueryDocumentIconResource = kGenericQueryDocumentIconResource;
  82.     genericExtensionIconResource = kGenericExtensionIconResource;
  83.     systemFolderIconResource    = kSystemFolderIconResource;
  84.     appleMenuFolderIconResource    = kAppleMenuFolderIconResource;
  85.  
  86.     kStartupFolderIconResource    = -3981;
  87.     kOwnedFolderIconResource    = -3980;
  88.     kDropFolderIconResource        = -3979;
  89.     kSharedFolderIconResource    = -3978;
  90.     kMountedFolderIconResource    = -3977;
  91.     kControlPanelFolderIconResource = -3976;
  92.     kPrintMonitorFolderIconResource = -3975;
  93.     kPreferencesFolderIconResource = -3974;
  94.     kExtensionsFolderIconResource = -3973;
  95.     kFontsFolderIconResource    = -3968;
  96.     kFullTrashIconResource        = -3984;
  97.  
  98. { Obsolete. Use named constants defined above. }
  99.     startupFolderIconResource    = kStartupFolderIconResource;
  100.     ownedFolderIconResource        = kOwnedFolderIconResource;
  101.     dropFolderIconResource        = kDropFolderIconResource;
  102.     sharedFolderIconResource    = kSharedFolderIconResource;
  103.     mountedFolderIconResource    = kMountedFolderIconResource;
  104.     controlPanelFolderIconResource = kControlPanelFolderIconResource;
  105.     printMonitorFolderIconResource = kPrintMonitorFolderIconResource;
  106.     preferencesFolderIconResource = kPreferencesFolderIconResource;
  107.     extensionsFolderIconResource = kExtensionsFolderIconResource;
  108.     fontsFolderIconResource        = kFontsFolderIconResource;
  109.     fullTrashIconResource        = kFullTrashIconResource;
  110.  
  111.     kLarge1BitMask                = 'ICN#';
  112.     kLarge4BitData                = 'icl4';
  113.     kLarge8BitData                = 'icl8';
  114.     kSmall1BitMask                = 'ics#';
  115.     kSmall4BitData                = 'ics4';
  116.     kSmall8BitData                = 'ics8';
  117.     kMini1BitMask                = 'icm#';
  118.     kMini4BitData                = 'icm4';
  119.     kMini8BitData                = 'icm8';
  120.  
  121. { Obsolete. Use names defined above. }
  122.     large1BitMask                = kLarge1BitMask;
  123.     large4BitData                = kLarge4BitData;
  124.     large8BitData                = kLarge8BitData;
  125.     small1BitMask                = kSmall1BitMask;
  126.     small4BitData                = kSmall4BitData;
  127.     small8BitData                = kSmall8BitData;
  128.     mini1BitMask                = kMini1BitMask;
  129.     mini4BitData                = kMini4BitData;
  130.     mini8BitData                = kMini8BitData;
  131.  
  132. {  alignment type values }
  133.     kAlignNone                    = $0;
  134.     kAlignVerticalCenter        = $1;
  135.     kAlignTop                    = $2;
  136.     kAlignBottom                = $3;
  137.     kAlignHorizontalCenter        = $4;
  138.     kAlignAbsoluteCenter        = $5;
  139.     kAlignCenterTop                = $6;
  140.     kAlignCenterBottom            = $7;
  141.     kAlignLeft                    = $8;
  142.     kAlignCenterLeft            = $9;
  143.     kAlignTopLeft                = $A;
  144.     kAlignBottomLeft            = $B;
  145.     kAlignRight                    = $C;
  146.     kAlignCenterRight            = $D;
  147.     kAlignTopRight                = $E;
  148.     kAlignBottomRight            = $F;
  149.  
  150. { Obsolete. Use names defined above. }
  151.     atNone                        = kAlignNone;
  152.     atVerticalCenter            = kAlignVerticalCenter;
  153.     atTop                        = kAlignTop;
  154.     atBottom                    = kAlignBottom;
  155.     atHorizontalCenter            = kAlignHorizontalCenter;
  156.     atAbsoluteCenter            = kAlignAbsoluteCenter;
  157.     atCenterTop                    = kAlignCenterTop;
  158.     atCenterBottom                = kAlignCenterBottom;
  159.     atLeft                        = kAlignLeft;
  160.     atCenterLeft                = kAlignCenterLeft;
  161.     atTopLeft                    = kAlignTopLeft;
  162.     atBottomLeft                = kAlignBottomLeft;
  163.     atRight                        = kAlignRight;
  164.     atCenterRight                = kAlignCenterRight;
  165.     atTopRight                    = kAlignTopRight;
  166.     atBottomRight                = kAlignBottomRight;
  167.  
  168.     
  169. TYPE
  170.     IconAlignmentType = SInt16;
  171.  
  172. {  transform type values  }
  173.  
  174. CONST
  175.     kTransformNone                = $0;
  176.     kTransformDisabled            = $1;
  177.     kTransformOffline            = $2;
  178.     kTransformOpen                = $3;
  179.     kTransformLabel1            = $0100;
  180.     kTransformLabel2            = $0200;
  181.     kTransformLabel3            = $0300;
  182.     kTransformLabel4            = $0400;
  183.     kTransformLabel5            = $0500;
  184.     kTransformLabel6            = $0600;
  185.     kTransformLabel7            = $0700;
  186.     kTransformSelected            = $4000;
  187.     kTransformSelectedDisabled    = $4001;
  188.     kTransformSelectedOffline    = $4002;
  189.     kTransformSelectedOpen        = $4003;
  190.  
  191. { Obsolete. Use names defined above. }
  192.     ttNone                        = kTransformNone;
  193.     ttDisabled                    = kTransformDisabled;
  194.     ttOffline                    = kTransformOffline;
  195.     ttOpen                        = kTransformOpen;
  196.     ttLabel1                    = kTransformLabel1;
  197.     ttLabel2                    = kTransformLabel2;
  198.     ttLabel3                    = kTransformLabel3;
  199.     ttLabel4                    = kTransformLabel4;
  200.     ttLabel5                    = kTransformLabel5;
  201.     ttLabel6                    = kTransformLabel6;
  202.     ttLabel7                    = kTransformLabel7;
  203.     ttSelected                    = kTransformSelected;
  204.     ttSelectedDisabled            = kTransformSelectedDisabled;
  205.     ttSelectedOffline            = kTransformSelectedOffline;
  206.     ttSelectedOpen                = kTransformSelectedOpen;
  207.  
  208.     
  209. TYPE
  210.     IconTransformType = SInt16;
  211.  
  212. {  Selector mask values  }
  213.  
  214. CONST
  215.     kSelectorLarge1Bit            = $00000001;
  216.     kSelectorLarge4Bit            = $00000002;
  217.     kSelectorLarge8Bit            = $00000004;
  218.     kSelectorSmall1Bit            = $00000100;
  219.     kSelectorSmall4Bit            = $00000200;
  220.     kSelectorSmall8Bit            = $00000400;
  221.     kSelectorMini1Bit            = $00010000;
  222.     kSelectorMini4Bit            = $00020000;
  223.     kSelectorMini8Bit            = $00040000;
  224.     kSelectorAllLargeData        = $000000FF;
  225.     kSelectorAllSmallData        = $0000FF00;
  226.     kSelectorAllMiniData        = $00FF0000;
  227.     kSelectorAll1BitData        = $10101;
  228.     kSelectorAll4BitData        = $20202;
  229.     kSelectorAll8BitData        = $40404;
  230.     kSelectorAllAvailableData    = $FFFFFFFF;
  231.  
  232. { Obsolete. Use names defined above. }
  233.     svLarge1Bit                    = kSelectorLarge1Bit;
  234.     svLarge4Bit                    = kSelectorLarge4Bit;
  235.     svLarge8Bit                    = kSelectorLarge8Bit;
  236.     svSmall1Bit                    = kSelectorSmall1Bit;
  237.     svSmall4Bit                    = kSelectorSmall4Bit;
  238.     svSmall8Bit                    = kSelectorSmall8Bit;
  239.     svMini1Bit                    = kSelectorMini1Bit;
  240.     svMini4Bit                    = kSelectorMini4Bit;
  241.     svMini8Bit                    = kSelectorMini8Bit;
  242.     svAllLargeData                = kSelectorAllLargeData;
  243.     svAllSmallData                = kSelectorAllSmallData;
  244.     svAllMiniData                = kSelectorAllMiniData;
  245.     svAll1BitData                = kSelectorAll1BitData;
  246.     svAll4BitData                = kSelectorAll4BitData;
  247.     svAll8BitData                = kSelectorAll8BitData;
  248.     svAllAvailableData            = kSelectorAllAvailableData;
  249.  
  250.     
  251. TYPE
  252.     IconSelectorValue = UInt32;
  253.  
  254.     IconActionProcPtr = ProcPtr;  { FUNCTION IconAction(theType: ResType; VAR theIcon: Handle; yourDataPtr: UNIV Ptr): OSErr; }
  255.     IconActionUPP = UniversalProcPtr;
  256.  
  257. CONST
  258.     uppIconActionProcInfo = $00000FE0; { FUNCTION (4 byte param, 4 byte param, 4 byte param): 2 byte result; }
  259.  
  260. FUNCTION NewIconActionProc(userRoutine: IconActionProcPtr): IconActionUPP;
  261.     {$IFC NOT GENERATINGCFM }
  262.     INLINE $2E9F;
  263.     {$ENDC}
  264.  
  265. FUNCTION CallIconActionProc(theType: ResType; VAR theIcon: Handle; yourDataPtr: UNIV Ptr; userRoutine: IconActionUPP): OSErr;
  266.     {$IFC NOT GENERATINGCFM}
  267.     INLINE $205F, $4E90;
  268.     {$ENDC}
  269.     
  270. TYPE
  271.     IconAction = IconActionUPP;
  272.  
  273.     IconGetterProcPtr = ProcPtr;  { FUNCTION IconGetter(theType: ResType; yourDataPtr: UNIV Ptr): Handle; }
  274.     IconGetterUPP = UniversalProcPtr;
  275.  
  276. CONST
  277.     uppIconGetterProcInfo = $000003F0; { FUNCTION (4 byte param, 4 byte param): 4 byte result; }
  278.  
  279. FUNCTION NewIconGetterProc(userRoutine: IconGetterProcPtr): IconGetterUPP;
  280.     {$IFC NOT GENERATINGCFM }
  281.     INLINE $2E9F;
  282.     {$ENDC}
  283.  
  284. FUNCTION CallIconGetterProc(theType: ResType; yourDataPtr: UNIV Ptr; userRoutine: IconGetterUPP): Handle;
  285.     {$IFC NOT GENERATINGCFM}
  286.     INLINE $205F, $4E90;
  287.     {$ENDC}
  288.     
  289. TYPE
  290.     IconGetter = IconGetterUPP;
  291.  
  292. {$IFC NOT OLDROUTINELOCATIONS }
  293.     CIcon = RECORD
  294.         iconPMap:                PixMap;                                    {the icon's pixMap}
  295.         iconMask:                BitMap;                                    {the icon's mask}
  296.         iconBMap:                BitMap;                                    {the icon's bitMap}
  297.         iconData:                Handle;                                    {the icon's data}
  298.         iconMaskData:            ARRAY [0..0] OF SInt16;                    {icon's mask and BitMap data}
  299.     END;
  300.  
  301.     CIconPtr = ^CIcon;
  302.     CIconHandle = ^CIconPtr;
  303.  
  304.  
  305. FUNCTION GetCIcon(iconID: SInt16): CIconHandle;
  306.     {$IFC NOT GENERATINGCFM}
  307.     INLINE $AA1E;
  308.     {$ENDC}
  309. PROCEDURE PlotCIcon({CONST}VAR theRect: Rect; theIcon: CIconHandle);
  310.     {$IFC NOT GENERATINGCFM}
  311.     INLINE $AA1F;
  312.     {$ENDC}
  313. PROCEDURE DisposeCIcon(theIcon: CIconHandle);
  314.     {$IFC NOT GENERATINGCFM}
  315.     INLINE $AA25;
  316.     {$ENDC}
  317. {$ENDC}
  318.  
  319. FUNCTION GetIcon(iconID: SInt16): Handle;
  320.     {$IFC NOT GENERATINGCFM}
  321.     INLINE $A9BB;
  322.     {$ENDC}
  323. PROCEDURE PlotIcon({CONST}VAR theRect: Rect; theIcon: Handle);
  324.     {$IFC NOT GENERATINGCFM}
  325.     INLINE $A94B;
  326.     {$ENDC}
  327. FUNCTION PlotIconID({CONST}VAR theRect: Rect; align: IconAlignmentType; transform: IconTransformType; theResID: SInt16): OSErr;
  328.     {$IFC NOT GENERATINGCFM}
  329.     INLINE $303C, $0500, $ABC9;
  330.     {$ENDC}
  331. FUNCTION NewIconSuite(VAR theIconSuite: Handle): OSErr;
  332.     {$IFC NOT GENERATINGCFM}
  333.     INLINE $303C, $0207, $ABC9;
  334.     {$ENDC}
  335. FUNCTION AddIconToSuite(theIconData: Handle; theSuite: Handle; theType: ResType): OSErr;
  336.     {$IFC NOT GENERATINGCFM}
  337.     INLINE $303C, $0608, $ABC9;
  338.     {$ENDC}
  339. FUNCTION GetIconFromSuite(VAR theIconData: Handle; theSuite: Handle; theType: ResType): OSErr;
  340.     {$IFC NOT GENERATINGCFM}
  341.     INLINE $303C, $0609, $ABC9;
  342.     {$ENDC}
  343. FUNCTION ForEachIconDo(theSuite: Handle; selector: IconSelectorValue; action: IconActionUPP; yourDataPtr: UNIV Ptr): OSErr;
  344.     {$IFC NOT GENERATINGCFM}
  345.     INLINE $303C, $080A, $ABC9;
  346.     {$ENDC}
  347. FUNCTION GetIconSuite(VAR theIconSuite: Handle; theResID: SInt16; selector: IconSelectorValue): OSErr;
  348.     {$IFC NOT GENERATINGCFM}
  349.     INLINE $303C, $0501, $ABC9;
  350.     {$ENDC}
  351. FUNCTION DisposeIconSuite(theIconSuite: Handle; disposeData: BOOLEAN): OSErr;
  352.     {$IFC NOT GENERATINGCFM}
  353.     INLINE $303C, $0302, $ABC9;
  354.     {$ENDC}
  355. FUNCTION PlotIconSuite({CONST}VAR theRect: Rect; align: IconAlignmentType; transform: IconTransformType; theIconSuite: Handle): OSErr;
  356.     {$IFC NOT GENERATINGCFM}
  357.     INLINE $303C, $0603, $ABC9;
  358.     {$ENDC}
  359. FUNCTION MakeIconCache(VAR theHandle: Handle; makeIcon: IconGetterUPP; yourDataPtr: UNIV Ptr): OSErr;
  360.     {$IFC NOT GENERATINGCFM}
  361.     INLINE $303C, $0604, $ABC9;
  362.     {$ENDC}
  363. FUNCTION LoadIconCache({CONST}VAR theRect: Rect; align: IconAlignmentType; transform: IconTransformType; theIconCache: Handle): OSErr;
  364.     {$IFC NOT GENERATINGCFM}
  365.     INLINE $303C, $0606, $ABC9;
  366.     {$ENDC}
  367. FUNCTION PlotIconMethod({CONST}VAR theRect: Rect; align: IconAlignmentType; transform: IconTransformType; theMethod: IconGetterUPP; yourDataPtr: UNIV Ptr): OSErr;
  368.     {$IFC NOT GENERATINGCFM}
  369.     INLINE $303C, $0805, $ABC9;
  370.     {$ENDC}
  371. FUNCTION GetLabel(labelNumber: SInt16; VAR labelColor: RGBColor; VAR labelString: Str255): OSErr;
  372.     {$IFC NOT GENERATINGCFM}
  373.     INLINE $303C, $050B, $ABC9;
  374.     {$ENDC}
  375. FUNCTION PtInIconID(testPt: Point; {CONST}VAR iconRect: Rect; align: IconAlignmentType; iconID: SInt16): BOOLEAN;
  376.     {$IFC NOT GENERATINGCFM}
  377.     INLINE $303C, $060D, $ABC9;
  378.     {$ENDC}
  379. FUNCTION PtInIconSuite(testPt: Point; {CONST}VAR iconRect: Rect; align: IconAlignmentType; theIconSuite: Handle): BOOLEAN;
  380.     {$IFC NOT GENERATINGCFM}
  381.     INLINE $303C, $070E, $ABC9;
  382.     {$ENDC}
  383. FUNCTION PtInIconMethod(testPt: Point; {CONST}VAR iconRect: Rect; align: IconAlignmentType; theMethod: IconGetterUPP; yourDataPtr: UNIV Ptr): BOOLEAN;
  384.     {$IFC NOT GENERATINGCFM}
  385.     INLINE $303C, $090F, $ABC9;
  386.     {$ENDC}
  387. FUNCTION RectInIconID({CONST}VAR testRect: Rect; {CONST}VAR iconRect: Rect; align: IconAlignmentType; iconID: SInt16): BOOLEAN;
  388.     {$IFC NOT GENERATINGCFM}
  389.     INLINE $303C, $0610, $ABC9;
  390.     {$ENDC}
  391. FUNCTION RectInIconSuite({CONST}VAR testRect: Rect; {CONST}VAR iconRect: Rect; align: IconAlignmentType; theIconSuite: Handle): BOOLEAN;
  392.     {$IFC NOT GENERATINGCFM}
  393.     INLINE $303C, $0711, $ABC9;
  394.     {$ENDC}
  395. FUNCTION RectInIconMethod({CONST}VAR testRect: Rect; {CONST}VAR iconRect: Rect; align: IconAlignmentType; theMethod: IconGetterUPP; yourDataPtr: UNIV Ptr): BOOLEAN;
  396.     {$IFC NOT GENERATINGCFM}
  397.     INLINE $303C, $0912, $ABC9;
  398.     {$ENDC}
  399. FUNCTION IconIDToRgn(theRgn: RgnHandle; {CONST}VAR iconRect: Rect; align: IconAlignmentType; iconID: SInt16): OSErr;
  400.     {$IFC NOT GENERATINGCFM}
  401.     INLINE $303C, $0613, $ABC9;
  402.     {$ENDC}
  403. FUNCTION IconSuiteToRgn(theRgn: RgnHandle; {CONST}VAR iconRect: Rect; align: IconAlignmentType; theIconSuite: Handle): OSErr;
  404.     {$IFC NOT GENERATINGCFM}
  405.     INLINE $303C, $0714, $ABC9;
  406.     {$ENDC}
  407. FUNCTION IconMethodToRgn(theRgn: RgnHandle; {CONST}VAR iconRect: Rect; align: IconAlignmentType; theMethod: IconGetterUPP; yourDataPtr: UNIV Ptr): OSErr;
  408.     {$IFC NOT GENERATINGCFM}
  409.     INLINE $303C, $0915, $ABC9;
  410.     {$ENDC}
  411. FUNCTION SetSuiteLabel(theSuite: Handle; theLabel: SInt16): OSErr;
  412.     {$IFC NOT GENERATINGCFM}
  413.     INLINE $303C, $0316, $ABC9;
  414.     {$ENDC}
  415. FUNCTION GetSuiteLabel(theSuite: Handle): SInt16;
  416.     {$IFC NOT GENERATINGCFM}
  417.     INLINE $303C, $0217, $ABC9;
  418.     {$ENDC}
  419. FUNCTION GetIconCacheData(theCache: Handle; theData: UNIV Ptr): OSErr;
  420.     {$IFC NOT GENERATINGCFM}
  421.     INLINE $303C, $0419, $ABC9;
  422.     {$ENDC}
  423. FUNCTION SetIconCacheData(theCache: Handle; theData: UNIV Ptr): OSErr;
  424.     {$IFC NOT GENERATINGCFM}
  425.     INLINE $303C, $041A, $ABC9;
  426.     {$ENDC}
  427. FUNCTION GetIconCacheProc(theCache: Handle; VAR theProc: IconGetterUPP): OSErr;
  428.     {$IFC NOT GENERATINGCFM}
  429.     INLINE $303C, $041B, $ABC9;
  430.     {$ENDC}
  431. FUNCTION SetIconCacheProc(theCache: Handle; theProc: IconGetterUPP): OSErr;
  432.     {$IFC NOT GENERATINGCFM}
  433.     INLINE $303C, $041C, $ABC9;
  434.     {$ENDC}
  435. FUNCTION PlotIconHandle({CONST}VAR theRect: Rect; align: IconAlignmentType; transform: IconTransformType; theIcon: Handle): OSErr;
  436.     {$IFC NOT GENERATINGCFM}
  437.     INLINE $303C, $061D, $ABC9;
  438.     {$ENDC}
  439. FUNCTION PlotSICNHandle({CONST}VAR theRect: Rect; align: IconAlignmentType; transform: IconTransformType; theSICN: Handle): OSErr;
  440.     {$IFC NOT GENERATINGCFM}
  441.     INLINE $303C, $061E, $ABC9;
  442.     {$ENDC}
  443. FUNCTION PlotCIconHandle({CONST}VAR theRect: Rect; align: IconAlignmentType; transform: IconTransformType; theCIcon: CIconHandle): OSErr;
  444.     {$IFC NOT GENERATINGCFM}
  445.     INLINE $303C, $061F, $ABC9;
  446.     {$ENDC}
  447.  
  448. { $ALIGN RESET}
  449. { $POP}
  450.  
  451. {$ENDC} {__ICONS__}
  452.  
  453.  IMPLEMENTATION
  454.  END.
  455.  
  456.